home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #1 / Floppy_Magazine_88-1_1988_Megasystems_Oy_fi_Side_B.d64 / direct hit (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  37KB  |  111 lines
  1. 0 rem    ******************
  2. 1 rem  **                  **
  3. 2 rem *      direct hit      *
  4. 3 rem *   by tommi tenhula   *
  5. 4 rem *   1986 in oulainen   *
  6. 5 rem  **                  **
  7. 6 rem    ******************
  8. 7 :
  9. 10 poke808,234:poke53265,0:poke53280,0:sys39067:sys49152
  10. 12 e1=10:w1$="t.tenhula":e2=10:w2$="t.tenhula":e3=7:w3$="t.tenhula"
  11. 14 e4=7:w4$="t.tenhula":e5=5:w5$="t.tenhula":e6=5:w6$="t.tenhula"
  12. 16 :
  13. 20 v=53248:s=54272:j=56320:pokes+24,15:pokes+4,0:pokes+11,0:pokes+18,0
  14. 22 sys16320:sys49485
  15. 24 p1=53248:p2=53264:p3=53249
  16. 26 sys16450:px=peek(p1)+256*peek(p2):py=peek(p3)
  17. 28 ifpx>31andpx<204andpy>216andpy<237then40
  18. 30 ifpx>220andpx<318andpy>149andpy<168thenpoke704,1
  19. 32 ifpx>220andpx<318andpy>173andpy<192thenpoke704,2
  20. 34 ifpx>220andpx<318andpy>197andpy<237thenpoke704,3
  21. 36 pj=peek(j)and16:ifpj=0then36
  22. 38 goto26
  23. 40 pj=peek(j)and16:ifpj=0then40
  24. 42 p=peek(704):sys49304:pokev+21,0:sys49852:m=90
  25. 44 ifp=1thensys50056:a$="shotgun":e7=e1:w7$=w1$:e8=e2:w8$=w2$
  26. 46 ifp=2thensys50119:a$="rifle":m=255:e7=e3:w7$=w3$:e8=e4:w8$=w4$
  27. 48 ifp=3thensys50181:a$="pistol":e7=e5:w7$=w5$:e8=e6:w8$=w6$
  28. 50 ifp=1thenpoke16437,184:poke17038,184
  29. 52 ifp=2thenpoke16437,186:poke17038,186
  30. 54 ifp=3thenpoke16437,188:poke17038,188
  31. 56 :
  32. 100 sys50243:poke214,18:print:printtab(16)"[158]records:"
  33. 102 printtab(8)"20 disks:"e7tab(21)"/"tab(23)w7$
  34. 104 printtab(8)"30 disks:"e8tab(21)"/"tab(23)w8$
  35. 106 printtab(15)"[158]press fire":sys49666
  36. 108 pj=peek(j)and16:ifpj<>0then108
  37. 110 pj=peek(j)and16:ifpj=0then110
  38. 112 sys50243:poke214,18:print:printtab(12)"[158]20 or 30 disks ?":d=1
  39. 114 printtab(16)"20 disks":printtab(16)"30 disks":printtab(15)"[158]press fire"
  40. 116 poke214,19+d:print
  41. 118 ifd=1thenprinttab(14)"[158][209] 20 disks [209]":printtab(14)"  30 disks  [145][145]"
  42. 120 ifd=2thenprinttab(14)"  20 disks  ":printtab(14)"[158][209] 30 disks [209][145][145]"
  43. 122 pj=peek(j)and3
  44. 124 ifpj=1thend=2
  45. 126 ifpj=2thend=1
  46. 128 pj=peek(j)and16:ifpj<>0then118
  47. 130 pj=peek(j)and16:ifpj=0then130
  48. 132 i=d*10+10
  49. 134 :
  50. 200 sys50243:poke214,18:print:printtab(11)"[158]shooting by "a$
  51. 202 print" disks: [158]0":print" hits : [158]0"
  52. 204 ifp=1andd=1thenpoke17030,7:poke16692,3:poke707,80:n=18
  53. 206 ifp=1andd=2thenpoke17030,6:poke16692,3:poke707,80:n=11
  54. 208 ifp=2andd=1thenpoke17030,8:poke16692,3:poke707,65:n=-18
  55. 210 ifp=2andd=2thenpoke17030,7:poke16692,3:poke707,65:n=-11
  56. 212 ifp=3andd=1thenpoke17030,6:poke16692,3:poke707,65
  57. 214 ifp=3andd=2thenpoke17030,5:poke16692,3:poke707,65
  58. 216 b=0:fora=2toistep2:ifp=3thenpoke707,peek(707)+1:m=int(rnd(0)*175)+80
  59. 218 poke16106,m:m=m+n
  60. 220 sys16000:po=peek(706)
  61. 222 ifpo=15orpo=16then300
  62. 224 b=b+peek(713)+peek(714):poke214,20:print:printtab(7)a:printtab(7)b:nexta
  63. 226 printtab(15)"[158]press fire":pokev+21,0
  64. 228 pj=peek(j)and16:ifpj<>0then228
  65. 230 pj=peek(j)and16:ifpj=0then230
  66. 232 ifd=1andb>e7then400
  67. 234 ifd=2andb>e8then400
  68. 236 sys49304:sys49852:goto20
  69. 300 pokev+21,0:g=(peek(706)-14)*4
  70. 302 pokev+23,2:pokev+29,2:poke2041,240:pokev+40,1:t=-1-rnd(0):ift<-2thent=-2
  71. 304 pokev+2,65:pokev+3,90:u=4:x=40:y=123:q=0:z=4
  72. 306 ifg=8thenpokev+2,255:u=6:x=303:q=255:z=-4
  73. 308 pokev+21,2+g
  74. 310 pokev+u,x-q:pokev+u+1,y:y=y+t:t=t+.15:ify>152then320
  75. 312 pj=peek(j)and16:ifpj=0then348
  76. 314 ifx+z=255thenq=0:pokev+16,0
  77. 316 ifx+z=256thenq=255:pokev+16,4
  78. 318 x=x+z:goto310
  79. 320 pokes+5,5:pokes+6,5:pokes,5:pokes+1,5:pokes+4,129:pokes+4,128
  80. 322 x=0:q=0:z=3:t=241:y=244:pokev+16,peek(v+16)andnot1
  81. 324 ifg=8thenx=336:q=255:z=-3:t=245:y=248:pokev+16,peek(v+16)or1
  82. 326 o=t:pokev,x-q:pokev+1,147:poke2040,o:pokev+21,1+g
  83. 328 poke2040,o:o=o+1:pokev,x-q:ifo=ytheno=t
  84. 330 ifx+z=255thenq=0:pokev+16,peek(v+16)andnot1
  85. 332 ifx+z=258thenq=255:pokev+16,peek(v+16)or1
  86. 334 x=x+z:ps=peek(v+30)and1+g:ifps=1+gthen342
  87. 336 ifx<0orx>340then220
  88. 338 pj=peek(j)and16:ifpj=0then348
  89. 340 goto328
  90. 342 poke2040,244:forr=0to50:nextr:pokev+21,1:y=y+4:t=245:o=247:z=-z
  91. 344 ify>248theny=244:t=241:o=243
  92. 346 pokev+30,0:g=254:goto328
  93. 348 pj=peek(j)and16:ifpj=0then348
  94. 350 goto220
  95. 400 sys50243:poke214,19:print:printtab(5)"[158]great! you did the new record"
  96. 402 print" you name please":print" ?  [146][157][158]";:a$=""
  97. 404 gett$:ift$=""then404
  98. 406 ifasc(t$)=13then418
  99. 408 ifasc(t$)=20anda$<>""thena$=left$(a$,len(a$)-1):print"[157] [146] [157][157][158]";
  100. 410 iflen(a$)=10then404
  101. 412 ifasc(t$)=32orasc(t$)=46then416
  102. 414 ifasc(t$)<64orasc(t$)>90then404
  103. 416 a$=a$+t$:printt$" [146][157][158]";:goto404
  104. 418 sys49304:sys49852
  105. 420 ifd=1thene7=b:w7$=a$
  106. 422 ifd=2thene8=b:w8$=a$
  107. 424 ifp=1thene1=e7:e2=e8:w1$=w7$:w2$=w8$
  108. 426 ifp=2thene3=e7:e4=e8:w3$=w7$:w4$=w8$
  109. 428 ifp=3thene5=e7:e6=e8:w5$=w7$:w6$=w8$
  110. 430 goto20
  111.